Thema Datum  Von Nutzer Rating
Antwort
08.12.2011 09:48:38 nyan
NotSolved
Blau Excel <-> Word
 12.12.2011 12:52:26 dekor
NotSolved
13.12.2011 12:51:56 nyan
NotSolved
13.12.2011 14:47:59 Till
NotSolved
13.12.2011 14:58:41 nyan
Solved

Ansicht des Beitrags:
Von:
dekor		 Datum:
12.12.2011 12:52:26		 Views:
1124		 Rating:
     
Antwort:
  Ja
Thema:
Excel <-> Word

Hallo Nyan,

so sollte es gehen...

 

Sub druck()
   Dim intRow As Integer, intLastRow As Integer
   Dim ASH As Worksheet, gesamt As Worksheet, unbetrachtet As Worksheet
   Dim x As Long, y As Long, lngZeilen As Long
   Dim V1, V2, V3, V4
   Dim user
 
   Dim appWord As Object
   Dim docTest As Object
     
   user = "Dein Benutzername"
   
   'Zuweisung der Tabellen zu den Variablen
   With ThisWorkbook
      Set ASH = .ActiveSheet
      Set gesamt = .Worksheets("Liste")
   End With
   
   'hier wird die länge der Quelltabelle ermittelt und in die Zieltabelle eingef?gt
   lngZeilen = gesamt.Cells(gesamt.Rows.Count, 1).End(xlUp).Row
    
   'Schleife die die Quelltabelle durchsucht und bei bestimmter Bedingung wird die Aktion copy-paste gestartet
   For y = 2 To lngZeilen
      'Bedingungen
      With gesamt
         V1 = .Cells(y, 1).Value
         V2 = .Cells(y, 2).Value
         V3 = .Cells(y, 3).Value
         V4 = .Cells(y, 4).Value
      End With
                 
      If V1 <> "" And V2 <> "" And V3 <> "" And V4 <> "" Then
         Set appWord = CreateObject("Word.Application")
         Set docTest = appWord.Documents.Add("C:\Dokumente und Einstellungen\" & user & "\Desktop\druck.dot")
         appWord.Visible = True
         docTest.Activate
         docTest.Bookmarks("kennzeichen").Range.Text = V1
         docTest.Bookmarks("name").Range.Text = V2
         docTest.Bookmarks("datum").Range.Text = V3
         docTest.Bookmarks("uhrzeit").Range.Text = V4
         docTest.PrintOut
         docTest.Close False
         appWord.Quit
         Set docTest = Nothing
         Set appWord = Nothing
      End If
   Next
End Sub

 

 

Gruß Detlev

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.12.2011 09:48:38 nyan
NotSolved
Blau Excel <-> Word
 12.12.2011 12:52:26 dekor
NotSolved
13.12.2011 12:51:56 nyan
NotSolved
13.12.2011 14:47:59 Till
NotSolved
13.12.2011 14:58:41 nyan
Solved